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ABSTRACT 

The purposie of the Ohio College Library Center (OCLC) 
computerizet^ regional library system is to provide an on-line system 
that makes available to faculty and students in individual colleges 
and universities the library resources, ^roughout. a '^egiwi, while at 
t:he same time decelerating the rate' of rise of per-student lii^rary 
costs. The research and development culminated in the successful^ 
implementation of an on-line union catalog and* shared ca ^ al og XQj^ 
system. The final report gf the i)rojec.t is LI 004 422. Ihis document , 
appendix riienty-eight^ The Ohio College Library Center 
Program/Subroutine Documentati(m« Build Print Tape^ (BPT) . BPT is the 
last step in the formatting of catalog cards. BPT has as input, the 
formatted records from the Catalog Card Format Program. The. put- put 
from BPT is a taj^ of line images ready for printing. The primary 
* function of BiPT is to format each input record from CCFP into line 
images to be printed two i^cross on the card stock. The first half of 
the run being printed on the left sid^, and the second ^>alf being 
printed' on. the rights side^ S^ccmdary functions of BPT include setting 
up for pack divider cards, and setting up the accounting ^id billing , 
information.' pother appendices as^ LI 004 23 through LI 004 427^) 
(Author/SJ) 
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OVERVIEW 



PROGRAM: BPT 



BPT (Build Print Tape) is the last step in the fprmatting of 
catalog cards, BPT has as input ^ th^ formatted records from 
CCFJ^ (Format), The'out-put from BPT ts a -fare *of line images 
ready for printing'. BPT can also be ruh fo%. testing purposes 
v»with the card images goin^' . c^iroctly to the 1.0^ device if, serisfe 
^^switch '3' is turn^^d ON. ^ * , / > 

The primary function of BPT is to formit eaclf input reco;fd 
froTn CCFP i^nto . line" images to be printed twb across on the card - 
^"Vitock, •* The first half of the run 'being priAted'on the left side, 
^.afiid^he second half being pointed on the night side. . 

Secondary f uncjLiQns_af^3PT include setting up for pack 
divider cards arfd* settinj^ "up the accoftn^ing and billing infor- . 
mation * * ' ^ 
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Application PRINT TAPE LAYOUT 



Prdcedure 



III. 2 
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T&XT - one of the following: 

1) lower case w's 

2) border 

3) blanks i 
H) card line image 

> C> • one of the following: 



1) x'UO'' — single space 

2) x'FOk double space , . ' 
^31 x'bO'' — triple space 

H) x'Fl' 'fekip to. channel *1' (to^ oK card' image) 

5) x*'F3' *Skip to channel '3' (third Jjine of eard"n.^age) 

6) x'CS**' skip to channel '12'- (bottorA of card image) 

7) x'HE' — overprint of preceding, line 

5 chaVs - one of the fol^lowing; 

I) blanks • . . ' , 

12) center control number (on Ist^print line) . ' 



riT. < 



OCLC CARD ItlAGE PRINT TAPE 

■1. 

Record Format = Fixed Blocked 
Logical Record Length' a 120 bytes 
Blcok Size « OS/ 360 Standard Label 
Ubel = No Label . . . 

Density - 800BPI , ' ' ^ 

The first character' pf each record is thg^vertical format 
control. The following codi^s are used: ^jjji 

1) X'HO*- s single space " , 

2) X''FO' 2 double apace ' , • 

3) X'60«. = tripple space ' ' 
*i) X*F1* s skip to'channel ♦I' (top ©r-card image) • 

5) X'F3»,5 skip to channel '3« (third line of card image) 
.6) X*C3' s skip to channel (bottom line of card image) 

7) X'HE' s overprint of preceeding line — suppress space 
At present cafd images are printed at 8 lines. per inch vertically, 
and a maximum of 23 lines p^ card. The card' dimensions .being 
75 mm. )i 125mm, 

All print characters of the record are represented on the IBM 
ALA print train. / 

A control* number ii located on the first pi'intable line of each- 
card image. It is Vliv5^digit number beginning 59 bytes into 
the record, It is rigRr^ustif4ed with leading blanks and 
sequential from card image '1' to the end. 
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yy the oliio colleplibfarycefltef 

^ ' ' I3H Idiiiieai \i - columbus oliio - 4321Z 



Record Layout 



4'iie Name CCFP Output Records 
Rerord Name 



Record Type - { ) Card (X) Tape < ) Disk ( >. Other^ 



riie Organization Gequential Record- Si/.e - 1200 B lodk Size ^^00 

^;en*/ral Description CCFP Output. Records contain formatted lines 

\ • \ 

and' headings and contro^l information neceg^ary to sort and 

buiid the catalog cards . . 



FIELD N.AME AND DESCRIPTION 



'USTTTW 



LL'NtTH 



i'UKHAT 



Block size 
Reserved 
Record length 
Reserved 
.\iort tag 

first tag entry 

second tag entry 

third tag entry 
Output ' record number 
i^ogical record number (for spanned 

records) ' 
Number of cards this record will 

produce 
Number of extra cards 
Card column for zero indent io-n 

for call numbers 
Card column for zero^^ indention 

for other text lines 
Unused 

Pointer to heading paragraph text 
'^ointer to first text paragraph 
Pointer tg continuation policy 
Continuation line number for text 
on extension' cards 



1 *- 2 

3 - a 

"5 -• 6 
7-8 
9-80 
9-13 
m- 5§ 
\57- 80 
fll- 82 

83- 84 

85- 85 

86- 86 

87- 87 

88- 88 

89- 90 
91- 92 
93- 9H 
95-\96 

97- 97 



2 

2 
2 
2 

72 

5 

43 
24 

2 



1 
1 



1 

7 
7 
2 
2 



binary 
X'-QOOO' 
binary 
•0000' 
va^dable 
EMDIC 
viiriable 
variable 
binary 

binary . 

binary 
binary 

binary 

binary 

X'OOOO' 

binary 

binary 

binary 

binary 
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^ . Record Layout (Cont). 

Tile Najjie / CCFP Output Records , 



Record Name 



) 



FIELD NAKE and ^SCRIPTION 



POSITION 



FIELD 
LENGTH 



FORMAT 



-Billing code 
Text paragraphs 



,38 -UOO 
101- n 
(n - 1200 



variabl 



EBCDIC 
: variable 



namber 
ir , ' then 



Each paragraph is pr.eceded by its beginni;ij 
citdfcd by a X'FF'. A X'Ff^also l>e^n5 the call 
fc>ll5:>wed by the call f^umb'er^l^eginriing line ntwnl^i , 
number text, X*FD' indicates that a ' jne-byteW'^b value 
then text. X'FE denotes\the end of a line •within 
X^FC* indicates that the following byte is 



line niJ^Ser and 



paragraph 
^the call 
foil ows $ 
a paragraph! . 
diacritical . 
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PROGRAM: BPT • 



FUNCTIONS ' 



BPT first checks the date and time for this particular 
product ion ''rtin using the intei'^nal date and time. In the case 
pf a , rerun or iate run; the date and time , are -input through 
th<^ console by the operator. *^ If sense switch #2 is 'OFT , 
the volume serial^ number ot the outjjut tape is requested. ^ 
A new expiration date is created * for^ thic tape so that the tape 
will not be us^d again for five workinp days. 

The labeled output tape is then verified. If tJue output 
tape label dqes Tio.t match, the opera'tor must either mount 
the proper tapl and co^tinu^ or abort the job and beglti again. 

For testing purposes-, the sense switches, ma^j be set.^ If 
sense switch 2 is 'ON', there will be no' tape output. If 
sense switch 3 is "•"DN^ v formatted card ima^es^ will be 
printed on the LO devT?^.* If sense switch ,^4 is 'ON', the 
line images as they appear on tape including overprint ^lines 
will be pointed on the LO device. The systi^m will^enteV.a 
'WAIT'- state if both sense switch 3 and U areMrurned 'ON'.. 



The subroutine RDTA r^ds th^ records from the CCFP 
output tape using 2 swing buffers. Th-ese bufcf^rs< enable main- 
line processing' to continue while the recorofe arfe being read* 
As soon as one read is complete in one of^ the buffers, another 
read, is initiated in the second buffer. The first record 
read contains a total .card count. This count is divided by 
two and used to spo^pl the first hctlf of the production run to 
disk. The subroutine WRDI move^^ ""^he records to a track size- 
buffer (6'^^ bytes). When this buffer cannot hold Another 
comjfcte record, it is written to disk. The second h^lf of 
records remain on the tape . 

The- maffn- line processings begins at BLDLFT wher^one 
record is read, from the disk using the subroujtine I^DDT . 
This subroutine unblocks the records and passes a single 
record to the main program. A branch and link is issued to 
the subroutine BLDCRD where the actua] card image is created. 
Then a branch is taken to BLDRT to read and build onjft record 
froip the tape. Cofitrol is passed from BLDLFT to BL^^ until 
all records have been built into card^ images. At time, 
processing continues at EOJ to set up the account cirfls , 
billing information, and the final statistics. 

The subroutine BLDCRD issues branch instructions to 
reveral subroutines to. \)uild the card image • BbDCPD sets up 
the indentions for the te)frt lines and iinitiafjt^ a branch dn 
link to the subroutine BLDPAR for each paragraph vuntil a 
image is formed. The bottom line paragraph is ^built f^rst . 
From this the pack tvD. is examined. If it is** different from 
the previous pAck I*D. the subroutine STARTPK is used to build 
a pack divider card. The subroutine SRCHBIL is used to search/ 
for the billing code in the ins titutionv table , INSTITUT. If 4 
the code is not there, it i§>added ^at the end of the table. * 

1 ■ 
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Th^ card count f^r each billing '"code is accumulated fdr 
EOJ processing and later monthly' billinp^. If there is more 
than one card needed for a record, the message 'SEE NEXT CARD' 
is moved to the line below the heading, After'all the text 
lines have been prdoessed, control is passed to the subroutine 
FULLCRD. Here the* parins are set up if the record is to be' 
repeated. Also ^he condition code H is set to 0 if the record 
is complete, or 1 if another' card i^ required for this recor.d. 
Control is returned back to PLDLFT, - ' - ' 

The Subrouting BLDPAR is used to format each .paragraph 
of text and set the line switches for each line. There are - 
2 3 line switches associated w*ith each card image. If the line*^ 
switch—is turner^ 'ON' (=10^ there is text to be printed on 
that line^ If ^he line switch there' is one overpjy.nt line 

associated wi.tn the text line. If the line switch = 3 .there 
are two overprint lines • Any character that is less than 
X'F9' is moved directly to the output buffer, A X'FC indicates 
that the ."next character is a diacritical and a branch is taken 
to th'e subroutine DICRT- A X'FD' indicates that th^e next ' 
character is a,tah value and a branch is taken to the subroutine 
TAB, A X'FE' indicates an end of line and a branch is taken . 
to EOL, A X'FF' indicates an end of -paragraph and a brancTi 
is taken to EOP where, control J.s returned back to BLDCI^D. 

After one left and one right card haye bee|W*rHilt Athe 
^^routine WRTA writes the line images to tap«r^Dlocking them 
before output. Also this subroutine -places a contrc^l number 
on the first- ilne image of the card ^ image pair. This control 
number is us^d primarily .in making production reruns. A' 
c^r^riage ^control character is developed^ fpr each line image. 
It either the* left or right card image is a start o-f pack 
card then a line of lower case 'w's' is' output before the 
start of. pack card image* If. sense switch 3 is turned 'ON'i 
the'rputine WRLO is uaed to write 'the card images on the LO 
device, Conttipl is re^^turned normally back to BLDRT, * ' 
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V. GENERAL INFORMATION FLOW 



START 



Check 
date 6 time 




input 
! date £ time 
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CALL 
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1st half 
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CALL 
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create new 



'expiration 
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Call sub- 
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OPENTAPE 



• v.u 
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switched 





1 ■ 


set 
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Move 
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print 
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Turn off j 
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Call 
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bottom line 
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^ record 
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to bottom 
line - 



BLDPAR 
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<sw. ON 
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FULLCRD 



set line 
switch 
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pick up 1 
character 
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blank \ 
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blank 
line . 
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/ RETURN ■ ^ 
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RETURN J 
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to buffer 
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RETURN 
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of line 
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move 
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call sub- 


i:.k ip 


lino 




routing 
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Call ^ 
Subroutine 
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move text j 
to buffer 
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YES 
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Call 
Sub rout ine 
TAPEIO 




V.15 



S'MRTPK 



set up 
OCLC border 
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• set up 
hole 
alignment 
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center 
count 
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set up , 
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pack messade^ 
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card 
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( RETURN 
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^ RETURN ^ 
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VI. SOFTWARE TNTERT:ACEv 



A. Linkage - Background linkage with OBM. 

B. Parameter List Description - none 

C. Return Codes - none 

D. Other Entry Points - none 

E. OCLC Subroutines Referenced 

TAPEIO 
OPENTAPE 
CLOSETAFE 
LIBSCH 

INSI TUT J 
MBS 
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DESCRIPTION -OF SPECIAL STORAGE ARETtS , 5:WTTCHL:T AN&^AI^LES 

A. Special Stor^F^e - - ^ " i 

DES> - A 3,312 byte card image buffer. It allows for 
, characters across the card and 69 lines 

-wjiich accounts for two ov<^^rnrint lines, for' each 
of the 2 3 lines af tex.t. 

B. Special Switches ^ 

CNTRCliT - 'This switch is used to' keep an internal count 

to be used for thie center- number. Thi^i switch is 

increinented b\' 1 everv timr one rif^ht and one 

left imape are complete . ' - 

'COIUIT - *This switch is used to keep an inte'rnal count of 
the numbex^ of cards for a particular record. When 
the record is finished, COUNT i reinitialized to *0' 

DEuDSW - This switch is set to 'I'.-when the eVid of data 

has been reached on disk. It is set to '0' at all 
times. 



DICRTSW -'This switch is used as a counter f^or the number 
of diacriticals associated wiVh a character. Only 
two diacritical^ are allowed. 

FRSTCRD - When* this switch is set to '0', th^'first card 



for this record is not finished 
when the card is finished. 



It is set to *1' 



EODSW - This switch is set to ^1' when the last block of 
records has been read from disk. 

LIfSW This switch is used to indicate whether or not a 
particular line- of the card image buffer is to be 
printed. There are 23 line switches, one associated 
with each' possible 'line of ti^xt. The four possible 
line switch values are;,- 



Value 

= 0 
.= 1 

= 2 



= 3 



Ind: 



[ 1 on 



LRDSW - This is the left 
' 1 * , a new record 
record is not yet 



the previous record is 
to be read from disk. 



line is not to be pi inted 

line is to be printed 

line is to be printed and has ^ 

1 diacritical line associated ' 

with it - 

line is to be printed has two 
diacri t ical lines associated 
with it 

read switch. V/hen it is set to 
is not needed' because the previous 
finished* When it is set to '0', 
finished , and a new record is 
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LWSW - 



is -the left 
the card on 
divider card 



the 



switch. When it ir> v>et 
left is nri account cj rd 
and is to havo a row ot W's 



to 
oh 



MIDSW 



This 

pack 

printed ac^pes's^he top . 

■ This switch is set to ' 1 ' j. f the last paragraph of 
this record ended in mid. point and is to be completed 
before the next narar.raph i n rUai-l od. 



NFPEE - This switch is used to indicate the number of 

output buffers that are free in the subroutin'O* WRLO» 

OPSW - This switch is used in three subroutines to indicate 
whether or not the device is open and to keep an 
internal count of ^he tr^insactions on that device. 
It is used in WRDI to test the disk, in WRLO to 
test the LO device, and -in RDTA to test the tape. 
If JPSW is greater than '0', the device' is open. 

ppTS - This switch is used to keep an internal count of 

the number of repeat records^that . have been processed. 

RTRDSW - This is the right read switch. When it is set 

to '1* a new record is" not needed because the previous 
r^ecord is not yet fini-shed. When It is set to '0', 
the previous record is 'finished and a new record is 
to be read from tape. 

PWSW ^ This is the right 'W' switcli. When it is set to '1', 
the card on the right is an account card or a pack 
divider card and is to have a row of W's p^rinted 
across the top . ^ 

SPACESW - This switch is used to keep a.^count of the number 
of lines to skip between lines erf \tex t . For each 
line switch that is turned 'OFF', SP^ESW is incre- 
mented by 1. If SPACESW is greater ^an 3 when a 
line switcli is found ^ON', a fake tr\_ple^ space 
is required. After a line is moved tp the output 
buffer, SPACESW is re-initialized to '0'. 

TAPE0PET4 * T^iis switch is set to '0' if the previous write 
to tape is complete and the tape is free. This is 
set in the subroutine WRTA. 

TEODSW - This switch is set to ' 1 ' -when the end of data 

is reached on tape. It is st?t to '0' at all 

other t imes . 

TXTDW - This switch is turned M)N ' whon .\ line of text is 

^passpd to HI.DPAP.^ TXTSW i-. turned 'OFF' for ^h^ 

bottom line, the pack l.D. eueds and rs^- heatling 
p'arar '^aphv ^ ^ 

WSW - This switch is set in the subroutine STARTPK to 
indicate to the main-line program^^t^at a row of 
*w's.' are to be printed across the top of the 
* current image . 
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i^BLKS - This switch is uned to k^^ep an ,i nternal - count of 
the number of blocks written to disk. 

#EXTKAl!R - This switch is u:.e(i lo kecD an internal count 
of iThe number ot extra cards for the entire r un • 
An extra ^ard is ^onsidcroj an account oarll or a 
Mck 1 .D. card. 




C. Specia 

M0NTBL\- Thr3 a table, oi/ valid three-letter codes for 

lar. This table is used to 
ooerat^^Trs time and date key-in. If the 
the console is not in tliis table, 
loperator is requested to input the informatioA 
agaitir ^ , 

ACCTAB - This is a 128 word table which contains 256 half- 
word entries. Each entry corresponds to a particular 
billing code. The total number of cards produced 
for an institution is charged to its appropriate 
entry in ACCTAC, , ' / * 

ERRTBL - This is a table of error messages. Each message 
has a two-word entry in this table. The first word 
is the address of the message and the second word 
is thf^ length in words of the message. 



) 
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AP PENDI X A 
S 

OPERATING REQUIREMENTS 

1. Computer - Xerox Sipma L 

2. I/O Devices - Two 9 track tape driven, line printer*, 
tard reader/punch 

/ 

3. Operating System - CBM 

4. Execution Time - dependi; on numbor ot innut r<3 cord's , 
approximately 

5. Run schedule daily 
•6 ^ Job Control Language 

!JOB ONLINE, BUILDPT 
!.IMG00 2A r? 

IPAU DISMOUNT 1st SCRATCH TAPE FROM Tl S MOUNT. 

LABELED PRINT TAPE, RING IN 
!IMG002A El 
!PMD 
!BPT , 

!MES DISMOUNT TAPE FROM Tl , PULL KINf"., SUBMIT TO LRC 
!STD (C,D6 ,ADDH0LDS) 
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OPERATING CHARACTE?JSTICS 
1. Console Messages 



:!PAU - DISMOUNT Ist SCRATCH FROM Tl f. MOUNT 
• LABELED PRINT TAPE, RING IN 

RESPONSE:- Mount tape as directed 

'ENTER OUTPUT TAPE -VOL SER NO.' • 

RESPONSE: enter the number requested 

'IS TODAYS TIME/DATE CORRECT FOR THIS RUN, 
• YES - ENTER 'C, NO - ENTER 'HH:MM MON DD,'YY' 

RESPONSE: a) 'C' 

b) enter time and date 

' example: '12:30 12 13, '7?' 

!!MES - DISMOUNT TAPLFROM Tl , PULL RING, 
SUBMIT LRCC ' ^ 

RESPONSE;' none 

!!PAU -- DISMOUNT 2nd SCRATCH TAPE FROM TQ 

RESPONSE: Dismount tane as directed . 



Programmed Abnormal Completion 

« 

5PT will terminate abnormally via a CALl ,9 1 (EXIT) 
Under the followinp, conditions. The message printed, 
out and reason are included iV) each case. 



MESSAGE 

El - UNABLE TO 
LOCATE MID POINT 



n2 - UNUSED OPTION 
CODE 

E3 - CHARCTEF OVLRLAY 
IN CARD IMAGE 



REASON 

Two possible reasons: 

1) one record Cannot have more than 
' 39 continuation cards - 

2) an end ol file Wdb encountered 
on the input tapf^ before half 'Of 
thr^ rorr)rilr- woro r. pooled to disk 

„ Unused *af momt^nt. 



The character in the caVd image 
must be a blank before the text 
character is moved in . 



/ 
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U. Param^^t'^r Ca) ds RtM-juir-cJ - none 
F> . L'xample ot Outrat - iu»xt -page 



iERic; 



the olii)0 college III) fary center 

1314 kinoeai fii. - coiumbus Ohio - 43212 



Record Layout 



Fi Le Name 



BPT PUNCHED OJTPUT 



Record Name BILLING INFORMATION 



Record Type - (X) Card ( ) Tape ( ) Disk ( ) ' Other 

File Organization SEQUENTIAL Record Size 80 g ipck Size UNBLOCKED 
General Description ^ card entry of 15 brytes is punched fo-r each - 



institution producing cards 



FIELD NAME AND DESCRIPTION 



Billing Code 
Transaction Code '2' 
Date of Charge 
§ of cards charged 



FUblTJUN 



1-3 

H ■ 
5-10 
ii-15 



LtNtSTH 



3 
1 

6 
5 



\ 



fOKHAT 



ALPHA 

.ALPHA-NUMERIC 
ALPHA- NUMERIC 
ALPHA- NUMERIC 
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DEilTLrD.DESCRIPTTO.N OE IMTERNAl. 
SUBROUTINES 



\ 



SUBROUTINE 



J 



I'AGL' 



BLDCRI> 
, BLDFAR 
BLNKLINE 
BORDER I 

DICKT 
~ L 

t,uP, 

FULLCRD 

M0V};LINC 

RDDI 

RDTA- 

SRCHBIL 

STARTPK 

TAB 

WRDI 

Wk'-O 

WRTA 



VIII . 
V I il . 
VJII . 
VIII . 
VIII. 
VIII . 
VIII- 
VIII , 
VIII, 
VIII, 
■ VIII-. 
VIII, 
VIII 
VIII 
VIII 
VIII 
VIII 
VIII 



5 

9 , 
8 

10 

5 

P 

8 

8 

9 

8 

6 

7- 

6 

10 

8 

6 

10 

7 



« 



0 



* This routine is used to builu the i\xvd image and move 
it to the card Image buffer*. The bottom line for the card 
i3 built fir^st. This is accon^pl itched by ^sotting up the zero 
indentation for the bottom 1 ine , r^Pt ti n,^ un the number of 
lines per rard, and i^suin^' i branch and link LnL. truction to 
RLDPAR.. 

On the fir^t. card foi* e^ch r-ecor^d, thv pack \ .V. and 
the billinf! code are checked. It the ^^urTent pack l.D. doen 
not match that of] the previous record, a branch Ls issued to 
the subroutine Sl^RTPK to insert a nev; i^ack divider card . 
If the billing code does not equal that of the previous record, 
a branch and link is issued to the subroutine SRCHBIL t6 lo- 
cate the new billinp, code. Tine number of cards for this 
record is then computed and billed accordinply. 

H'r/jre than one card is required the messSpe 'SLE 
NEXT CARD' is moved to the bottom line. The card number is 
also moved into the line below the headinp. 

Kach paragraph of textMs then processed in t'urn by 
issuin-^ a branch and 1 ink to the subroutirh? HLDPAR. After 
the Id^t line has been processed, a branch is issued to 
FULLCRD. 

The linkaj;',e register is R7 . The ^'^lidition code is set 
to Q i ^ the record is complete. I! tlie r*rcord is not complete, 
the condition code is set to 1 ,to prohibit another read. 
i\L'gi^ter- 2-8 are u'.^ed. 



\ 
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' CVD ThxS routine is used to convert numeric byte stings to 

their decimal equivalent. The field to bo converted' is passed 
in R8 and the result is left in the three word buffer pointed 
'to by R9\ The buffer contains the converted number with 
leading blanks. The linkage register is.R7. Registers 0r3 
and 7,8, and 9 are used. None of tlic rcp^intcrrj aro destroyed. 



SRCHBIL This routine is used tu searcli fot^ the billinr code in 

the institutuion. table called INSTITUT located on the pub-lib- 
The billing code is passed in R8, BPT ^assigns a key to each 
institution code in the table INSTITUT- BPT then alphabetically 
sorts these keys- SJcCHBIL performs a binary search on INSTITUT 
using these sort keys as afi, index. 

If the biVLling code i3 not in INSTITUT, the added entry 
t^ble is searched* If the code is not in this table either, it 
is added at the. end of the second table. Tf there are already 
fiv^ addecl entried in the second table , no more codes are 
added, the cards are, not billed,* and an error message is printed. 
In either case, a warning message is ^printed declaring that 
the billing , code 'is not in the INSTITUT table. 

The condition code is sfet to '1' if the cards were not 
« billed, otherwi'se the condition code is 0.^ The linkage register 
is^R7. Registers 2,3,7,8, and 9 are used.' R2 and R3 are 
destroyed. 

WRDi' This routine isused to write the tir§t half ol the input 

records onto disk and block the records to track size (6mu bytes). 
Upon entry, Rl has the word address of the buffer where the 
record is after beinF read' from the inout taoe (RDTA). WRDI 
moves the record to a buffer that has a maximum size of 6mu 
bytes.' The residual byte count i^ adjusted, the buffer address 
for the next move is set up and ^pontrol returns with a condition 
code of '0'. Upon subsequent entries to URDI , if the entire 
new record will no't fit in t?he remaininR area of the buffer, 
a CAL3,0 is issued to write the contents of the entire buffer 
on disk. Then this new record is moved to t^e cleared buffer. 
After the last record hab been written/, the open switch, OPSW , 
is turned off and control is returned' with a condition code of 
'1' . 

The linlfage register is R7 . Rl enters with the word 
address of the buffer. Registers 1-5, 7, and 8 are used. All 
- are destroyed except FI and R7 . 

RDDI This -routine *is used to read the first half ot the input 

records that were spooled off onto disk. RDDI first checks to 
see if there are any more records in the output buffer. If 
not, the routine RDTRK will issue a CAL,3,0 and read one entire 
block oi records into the buffer which in GIUU bytc'>. RDDI then 
/*>^turns the word addre*:js of the next record in Rl . The byte 



/ 
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count of the buffer is decrement, the condition code is 
normally set to 0 and control is returned. If the orevious 
record was the last one, the condition code is set to !• 

The linking register j.s .Rl. The word address of the 
record is returned in Rl. Registers 1,2,3,7, and 8 are used. 
R8 is destroyed. 



This routine is used to read the input records (CCFP out- 
-"^ut records ) f ro'^ tape . - The I/O is accomplished using two 
swing buffers so that 'main line prccess'lng can continue.- Upon 
entry to RDTA, tht: free buffer is found. A branch and link is 
issued to the external subroutine TAPEIO where the read is 
initiated using this free buffer. The address ef the othe¥ 
buffer is returned in Rl. This buffer contains the record from 
the previous read The condition code is normally set to 0 
and control is returned. On end of file, the condition 
code is set to 1 . 

The linkage register is R7 . Registers 1,^1,6,7,8,10 
and 11* are used. -The address of the record is returned in 
Rl . *A11 other registers are destroyed exce-pt R6 and* R7 . 

% . 

This routine^ is used t(JL write the formatted card images 
on the output tape. If sense switch 2 is 'ON', no output 
is requiired and control is returned with condition code = 0. 
If sense switch 3 is 'ON', output goes tQ the line, printer-^^ 
and a branch is taken to WRIA2LP. * • ^ , ' 

If all ^^se' switches a^x-^'OFF', the 'W switches 
(LWSW. and RWSW7 ar/e tested. If either switch =1, a row of 'W's' 
is moved to the top of tha card* Normally, the switch will be 
turned on only for pack' divider cards and account cards. ^ 

The routine CN is used to moVe in the center number. 



The first three 1 i ne switches are then tested to locate 
the first line of text. If line switch 1 is 'ON', the vertical 
format character '1' (skio to Channel- 1 --^ top of carid) is 
jnoved into the first byre of the line. If line switch 2 
is 'ON',' a skip to Channel 1 character is moved into the first 
byte- and a blank line is then moved in. This effictively 
starts printing on line 2. Tf line switch 3 is 'ON', the 
vertical format character '3' (skip to Channel 3 3ri lijie 
of card image) is moved into^ the first by to. If all three line 
switches are 'OFF' , the next text line begins with the fake to 
Channel A branch and Link is then insued to MOVFLINE. 

All the other line r.witches are then tested in turn. When 
one is found 'ON', tje spacing switch is tested (SPACESW). 
If SPACESW. =0, a blank' is moved into the first byte to indicate 
single spacing. If SPACESW =1, a zero is moved into the first 
byte to indicate do\ible spacing. If SPACES^ =2, a dash is 
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ijioved into the first byte to indic^e trinle spacing. If more 
than three spaces are required, a tlriple space charcter is 
used instead.. When the bottom line is found, the control character 
is a 'C' (skip to Channel 12 bottom line 
After the control character has been moved, 
link is issued to MOVEIINE*. 



of card image) 
a branch and 



At WRTA2LP, the text line is moved to a buffer. The 
address of the buffer is in R8 and the number of characters to 
write is in R9 . -A branch and link if. I-.j^ued to WRLO. 

The linkage register is R7 . All registers arc used except 
Kl and R2. None- of the registers arc destroyed. 

'MOVELINE This routine move*^5 a line of text, after the v^ertical 

format control character has been inserted, to one of two out- 
put buffers." When the buffer is full (1800 words), a branch 
and link is issued to TAPEIO to write- the contents of the 
buffer tape. 



' If 
From here , a 
words on the 



ense switch ^ 
branch and 
LO device. 



IS 



'ON' 



a branch in taken to'PRISETUP. 



link is issued' to WRLO to write thirty 



'j The linkage register is R7 . Ri^pistors 1-12 are used. 

None of th^ registers are destroyed. 

BLNKLINE 'This routine is used to assure that a line image is 

blank before moving in the text. Twelve words of blanks are. 
moved into both the left and right record buffers. The linkage 
'register is R7» Registers 5,7,*8, and 9 ^re u-,ed. R5 is 
des'troyed. ' . 

EOP ^ This routine is ysed whenever a X'FF' found in a text 

paragraph. This indicates ' that the end of the ' paragraph has 
been reached. The condition code is set tr^ 0 and control 
• returns back to BLDCRD. The linkage reFi'^.ter is F7, 



found in a text 



TAB This routine is used whenever . a X * FD * 

paragraph. Ttis indicates that the value fol lowing the X*FD' is 
to be used as a tab value. The pointer to the output buffer is 
to be incremented by this value. Control in returned back to 
L00P3. 



EOL 



This routine is used when a X'FE* if 
a text paragraph. This is to indicate an 
pointer to the output buffer is bumped to 



line switch for tliis new line is' turned 'ON' an 
link' is issued to BLNKLTNE. Control i returned 



encountered within 
end of line and the 
the next line. The 




branch and 
.ck to BLDPAR. 
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If the ntsxt line will be the last line of text on the 
'card (not the bottom line), the condition code is set to 1 
and control is returned back to BLDCRD. 



DICRT This routine is used when. a X'FC^ is encountered within 

c- text paragraph. This indicates that the next character is 
a diacritical and is to be placed in the overprint line. The 
current line switch is incremented by 1 to indicate the presence 
of the diacritical and the diacritical switch, DICRTSW, is 
incremented by 1. If there is anpther diacritical following 
th is one , the line switch and the diacrit ical switch are 
incremented by 2. Any more diacriticals for this character 
are ignored. The diacritical is then moved to the card image 
buffer, in the. overprint line. The diacritical switch is 
returned back. to BLDPAR. 

BLDPAR ' This is a subroutine used by BLDCRD in which one 

paragraph is built and moved to a buffer. Upon entry, R2 
must have the byte address of the current paragraph. 

First the mid paragraph switch, MIDSW, is tested. 
If it is 'ON*, the last paragraph ended in mid point'and it is 
to^ be finished. Otherwise, the second byte of the oaragraph 
is te'sted.^ The first byte of the paraF,rdph is the line 
number. If the seq^d byte is a X'FF', this indicates that 
the call number follows. The zero indention for the call ^ 
number is set up and processings continues. 

If this lline number is greater than 23, a branch is 
' taken to FULLCARD. 

Next the line switch on -the card image buffer is 
tested to be sure that it is turned 'ON'. Each character 
is then tested and moved to the card image buffer in succession. 
If the character is X'FA' or X'FB' , an orror message is ^ 
printed and a CAL1,9 1 (EXIT) is issued. If the character 
is a X'FC, a branch is taken to DICRT. If the character. is 
a X'FD', a branch is taken to TAB. If the character is a 
• X'FE', a branch is taken to EOL. If th(- cluiracter is a X'FF', 
a branch is taken to EOP, where control returns to BLDCRD. 

The linkage register is R7 . Registers 2-9 are used* At 
exit, R2 is the byte address of the last bvte Processed. All 
other registers are des troyed . 



FULLCRD This routine is u^ed to set up tiie narms if this record 

i:: to be repeated;» i^et the condition coder,, and return. If 
the record is complete, the count of cardr^ for this record 
and the number repeat^; are cleared. The condition code 
is set to 0 and control is returned bad 1- lU.DLFT or RLDRT. 
If the t^ecord is not comnlete, the conditicui code i:; set to 1 
and control is returnod hack to BLDCRD* Tlie ^uldror>f. of the lant 
hvto procensed (R/) , \u ".aved at locdtion TFXT. 
INmm 1 ^>r':; .iihl 7 arc u'>'-'l. 
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« • ^ 

-BORDER This routine is used to set up the OCLC border and hole 

alignment on the pack divider cards and ^the account cards^ 
If all the line switches are not turned 'on, thev are set for 
kthe i/iitial print. For each line where tho switch was not on, 
the routi^ne BLNKLINE insures that the line is initially all 
blank. The characters *pCLC' are then repeatedly rroV.ed iijto 
the top and bottom lines and down each r.ide. Six character 
'O's are used to indicate the proper hole alignment. 

Linkage to this ^routine is through R7, Rep,ister. 3 
through register 8 are used and R8 is de.stroyed, 

S^^RTPK ■ This subroutine is used to set ud the start of pack cards. 
] ' A branch and link is initiated to the subroutine BORDER. 
I STARTPK DicJcs up the pack identification from the location 
/ PACKIDX and moves it to the card image location. The address 
of the card image location is Passed^ in DEST, The <:enter 
cuvm: number is picked up from CNTRCNT, A branch and link 
xs initiated to the subr^Outine CVD to convert the center count 
number to decimal format and m9ve it to thp card image. The 
time and date for this run ar^ picked up from TIME and moved 
to the card ima^e. The .message' START OF PACK* is, then moved, 
' The switch WSW is set to ir|idcate that a line of W*s are to oe 
printed across the card, A branch is taken to NOTD.ONE to 
.indicate that the Previously read record has not been processed. 
Registers 1-9 are used and all are destroyed, 

WRLO This subi'outine is used to write the card images one line 

9rft a time to the M:LO device. This routine expects the word 
address of the text line to be in R8 and the number of words 
to be v/t^itten to be in R9 . Nothing is written if the value 
in R9 is less than 0 or greater than 33.^^ 

The switch NFREE is used to indicate the availability of 
one or both of the buffers. If neither of the buffers are 
ready, a branch and link is initiated to TLO where ^ CAL1,1 is 
' issued to wait for the I/O. When a buffer is fouTHK free, the 
text is moved 10 words at a time, NXTIN is then set with the' 
address of the next available buffer and NFREE is decremented 
by 1. A branch and link is theh initiated to TLO. R7 is 
used as the linkage register. 

At TLO, a CALljl is initiated to check the status of the 
I/O, If the LO device is busv, the condition code is set to 1 
and control is I'e turned back to the cal I in^ rout ine , A CALl , 1 
is issued to write the text line to- the 1.1^ device, NXTOUT is 
then set with the address of the next av<ulablo buffer and NFREE 
iu incremented by 1. Conltn^l is returrunl to WRLO through R7 , 

Kcgisfe! H rind re^gi.ster': fa -10 arc umxI and all ^^xci^pl R7 
are destroyed. The linkage regis'ter i r; R7. 
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SUB ROUT FNE: TAPKIO 



rUNCTlONS 

TAPETO if. 'a p.cnerai purpose i np^l /oul put subroutine wfilch 
per'form^i. the fol] owing functions dopondinp, on a function 
code passed from the calling pjrograin. 



rUNCTTON CODE 

X'OO.' 
01 
02 
03 
04 
05 
06 
07 
08 
09 



FUNCTION 

READ 
WRITE 
READ 
WEOF 
SKIP 
SKIP 
SKIP 
SKIP 
REWIND 
UNLOAD 



ONE 
ONE 
ONE 
ONE 



RECORD FORWARD 
RECORD BACKWARD 
FILE FORWARD 
FILE BACKWARD 
(ONLINE) 



TAFEIO sets up the FPT to be used in lOEX CAL2 frorn^ 
u'ameters passed by the calling program. If the function 
r^quirRd docs not involve data transfer (in the range of 
ies 3-9), the only parameters needed by TAFEIO are the 
fuhction code, the. unit address, and an event word. If 
data transfer is to be performed (codes 0,1,2), TAPfJIO 
inucL also liave the address of a buffer and U\£ length of the 
data to te read or written. Uport entry to TAPEIO, general 
register 1 should be pointing to a user-definefl work area 
on a double word boundary. 

]f the function to be performed involves data transfer 
.or if. a WEOF, two function parameter tables (FPT's) are 
set up. The -first FPT is for the op.eration requested; the 
second is used to sense the device status in the event^ the 
requested operation does not end normally. For non-data 
transfer functions, only one FPT is constructed. 

TAPEIO contains its own end action routine , STDEA. 
STDEA uses the Test Device (TDV) status returned by the lOEX 
CAL2 to determine the end action required. If the I/O 
operation terminated normally, the first byte of the event word 
in t)ie first FPT is set to X*80' and control i^ returnedi 
If the operation ended abnormally, the TDV status is 
interrogated more closely to detei^mine the exact result of 
the operation. 



A table of TDV status values and their meanings follows: 
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' SUBROUTINE: TAPIO" 



TDV STATUS ' EXPLANATION 

0200 NORMAL TERMINATION BEYOND END 

OF TAPE 

0400 NORMAL TERMINATION AT BEGINNING 

or TAPE 

88 7E NORMAL TERMINATION 

OOOE ' lOP ERROR 

0010 MEMORY ADDRESS ERROR 

2000 WRITE PROTECT VIOLATION; 

1000 END OF FILE 

80 00 DATA OVERRUN 

0 800 . NON-CORRECTABLE READ ERROR 

00 40 TRANSMISSION DATA ERROR 

00 20 TRANSMISSION MEMORY ERROR 



A TDV status of 'B87E' initiates the return of a normal 
completion code (){'80') to the user. If the status is '1000', 
an end 'of file indication is returned. If the TDV s'tatus is 
'OOOE.', '0010', or '2000', the error is not attributed to the I/O 
device; and no retry ia attempted. If the status is one of the 
last fpur in the table, the retry count is interrogated. The . 
retry count is arbitrarily set in TAPEIO to ten for data transfer 
operations (ftinction codes 0-2) and WEOF (code 3) and is set to zero 
fox- non-data operations (codes 4-9),. If tlic retry count for this 
operation is zero, an abnormal return code is posted, and control 
is returned to the calling program. If the retry count is greater 
than zero, retry procedures are Initiated based on the 'type of 
I/O function that was attcin])ted. 

If the status is '0200' or '040(5', a code is returned to 
indicate the pos'ition of the tape. 

If the opei-ation was a READ and the eri^or is correctable 
(TDV status of '8000', *'00M0*, o.-^ *0020 l), the second FPT is pulled 
from the work area and used to sense the device. If the sense 
does not take, an unconditional backspace and retry are initiated i 
otherwise STDEA will alternately backspace, or forward space (de- 
pending on whether the READ was forward or reverse), sense, retry, 
and sense until either the retry count is zero or the I/O opera- 
tion has been performed. If the retry count reaches zero before 
the operation has been terminated normally, the condition code 
returned is the result 9f the last retry. 

If the operation was a READ but the error was declared non- 
cgrrectable (TDV status *0800'), 3TDEA initiates an unconditional 
retry. It b4f(?kGpace's , or forward spaces if the operation was 
READ REVERSE, ^'and attempts to READ again. The TDV status is 
interrogated after each retry^ of the READ* If the error status 
becomes correctable before the retry count is zero, STDEA will 
initiate sensing of the device and the correctable READ error 
procedure. In any case, retry continues until the operation is 
completed normally or the retry count reaches zero. If the 
retry count becomes zero before the operation has t-erminatcd 
normally the condition code returned is the result af th^ last retry 
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t 

If the operation was a WRITE or WEOF, STDEA automciticcilly 
backspaces, senses, and attempts the operation again. This 
procedure continues until the I/O is complete or the retry 
count Ls zero. If the retry count reachor. zero before the 
operation has been terminated normally, the condition code 
returned is the result of the last retry. 

< 

'At its alternate entry point, TAPEWAlT, TAPEIO checks 
for completion of an I/O operation performed by TAPEIO. If 
the event is not complete TAFEWAIT issues a CAL2,9 0 to wait 
for completion. When the event is posted complete, the 
status is interrogated. If the completion is normal, (X'80'), 
control is returned to the return address plus one. If the 
completion is abnormal (X'CO') control is returned at the 
return address. In either case BYTEO of the event word is 
returned in bits 2l4-31 of R8, 
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SUBROUTINE: TAPETO 



SOFTWARE INTERIACC 

A. LINKAGE 

The calling sequcnco for TAPEIO is as follows: 

Li.Rl WOKKAKEA 
LI , R8 PARMH 
RAL,R7 TAPEIO 

Where V/ORKAREA is a 16-word storage area aligned on 
a doubieword boundary. 



B. PARAMETER LIST DESCRIPTION 

For function codes 0, 1, 2 



WORD 


0 


^FUNCTION 


DEVICE ADDRESS^ 


WORD 


1 


BA (BUFFER) 




WORD 


2 


BYTE COUNT 






WORD 


3 


EVENT STATUS 




J 




For fuiictioni 


J 3-S 


1 


WORl> 


0 


FUNCTION 


DEVICE address"^ 




WORD 


3 


EVENT STATUS 







{ 



C. RETURN CODES 

-NORMAL COMPLETION: EVENTWORD BYTE 0 = X'80' 

BYTE 1 = X'00« 

ABNORMAL COMPLETION: EVENT WORD BYTE 0 = X'CO'' 

BYTE-1 = XX - ({:ODE INDICATING 
NATURE or ABNORMAL COMPLETION. 

Possible event words for abnormal completion and their 
meanings are listed below: , ! 
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EVENT WORD 


TDV STATUS 


MEANING 


COOl 


0200 


NORMAL TERMINATION 






BEYOND END OF TAPE 






MARKER 


"C002 


0400 


NORMAL TERMINATION 






AT BEGINNING OF TAPE 


CO OA 


OtlOE 


lOP ERROR 


C009 


0010 


MEMORY ADDRESS ERROR 


CO 0 8 


■2000 


WRITE PROTECT VIOLATION 


COOS 


1000 


END OF FILE 


C007 


'8000 


DATA OVERRUN 


COOU 


0800 


NON-CORKiiCTABLE READ 






ERROR- 


COOS 


QOMO 


TRANSMISSION DATA 






ERROR 


C006 


0020 


TRANSMISSION MEMORY 






ERROR 


COOO 




UNIT UNRECOGNIZED 


COOD 




SOFTWARE EHj^OR 



For code; .C000-C003 and C0O8-CO0B, no retry has been 
attempted. For codes C00'»-C0p7, retry has been attempted only 
if the function was a data transfer or WEOF. 

. D. OTHER ENTRY POINTS • 
TAPEWAIT 



E. ' PCLC SUBROUTINES REFKHENCED - none 

F. OCLC PROCEDURES RfjFERENCED - none . 
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SOFTWARL INTinUACi: (TAPCWAITD 
A. LINKAGE 



LI ,R8 
BAL,K7 



TAPEWAIT 

B. PARAMETER LIST DESCRIPTION 

same as for TAPEI 0 

C. RETURN CODES: 

BYTE 0 of the user provided EVENT WORD is returned in 
bits 2H-31 of R8 ' > 

D. OTHF ENTRY POINTS - none * 

E. OCLC SUBROUTINES REFERENCED ^ none 

F. OCLC PROCEDURES REFERENCED - none 
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SUBROUTINE; LIBSCH 



FUNCTIONS: 

This subroutine contains the table of all holding l:j.braries. 
Upon entry, Rl contains the three letter holding library code 
with a zero high byte. When this code is found in the table, 
the ihstitutioii code and the cataloging library code are returned 
in R2. 



\ 
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PROGRAM: BPT 
;1UB ROUTINE : LIBSCH 



SOFTWARE INTERFACE 
•At 

A. Linkage 

The callinp sequence is: 

PACKID 

-8 
LIBSCH 



LW,F1 
SLS,R1 
B^L,R0 



)\et lib rode 

insure ::oro in high byte 



Parameter Li'^ t Description - nono \ 

i 

Return Codes - none 

Other Entry Points - none 

OCLC Subroutines Referenced - none 

OCLC Proceaure.s Referenced 

TCOM - This procedure venerates a two-word entrv 
for the library table* The first word contains 
the holding library code. The next half-word 
contains tho institution code. The next half- 
word contains the cataloging library code. 



n 
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PROGRAM: BPT 
SUBROUTINE: INSTITUTIONS 



FUNCTIONS : 

The subroutine INSTITUTIONS contains the directory of all * 
•the institution codes. It also contains the text that appears ' * 
on the screen as the cataloging source. 

' The string control word (SCW) is passed back. SCW is a • 
double-word with the condition code in the first byte. The 
next twelve bits contain the maximum length of the text and 
the. next sixteen bits contain the actual length of the text 4 
string. The second word contains the byte address of the 
text. The length and the byte address of the text are set up 
in the table INNT. The table INCT contains the three-letter 
code for each institution. 

'Two words are also returned at location ^NSTITUT and 
INSTITUT + 1. The first word contains the address of the 
first word of the table INNT, which is the ^ize of the table. 
The second word contains the address of the table INCT. 



\ 
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i SUBROUTINE: INSTITUTIONS 



SOFTWARE INTERFACE 

A. Linkage - none 

B. Parameter List Description - none 

C . Return Codes - none / ^ 

D. Ot*her Entry Points - none — ^ 

E . bCLC Subroutines Referenced - none 

F. OCLC Procedures Referenced ^ 

;INN - This procedure generates- a double-word 
word. The first word is generated by *^he pro- 
cedure sew. The second word is the byte address 
of the text string to be displayed on the terminal. 

sew - This procedure generates one word, ^he first 
bit of which contains a to be used as a condi- 

tion code by the program CAT, The next twelve bits 
contain the maximum length of the text. The next 
sixteen bits contain the actual Length of the text. 

Example 1 : 

In BPT, the institution table is used to check billing codes 

CW,R3 *INSTITUT 
This instruction will compare the contents of R3 with the 
contents of INSTITUT which is the length of the table INNT, 

Example 2 

LW_,R5 ^ _ *INSTITUT + 1, R2 

This instruction will load into R5 the institution code 
from the table INCT. 



PROGRAM: BPT 
{ niJBRQUTI/NE : OPENTAPE 

V1IT.22 

I. FUNCTION 

The subroutine OPENTAPE is used to vei'ifv the standard 
OS/ 360 tape label on the output print tape. OPENTAPE also 
updates the expiration date on the tape label. If the tape 
.label does not begin with the characters 'VOL 1*, a mesrage 
is printed to ^hre^'console . If the operator responds wilh a 
'C^ the tape is rewound and a read is tried apain, otherwise 
the condition code is set to M' and the job iy> aborted. If 
the volume serial number input by the operator througn the 
console does not match that on the tape," a message is printed 
on the console. If the operator replies 'C, thfe tape is 
rewound and a read is tried again, otlierwise, the condition 
code is set to '1', and the job is,aborte^i. The expiration 
date on the tape is cliecked against the current date (or 
the date input by the operator inthe case of re^runs). If 
the tape is not expired, a message, is written on the opej?ators 
console. If the operator responds '.C, processing is continued 
and the date is ignored. Otherwise the job is aborted. The* 
new expiration date that was passed in the parameter list^is 
written in .the header on the tane. The condition code is 
set to '0' and control is returned throuf^h R15. 



ERIC 
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PROGRAM: BPT 
SUBROUTINE: OPENTAPE 



II. SOFTWARE INTERFACE 
A. Linkage 
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The calling sequence 


X o ■ 


LI ,RU 


IKOTPARMS 




BAL,R15 


OPENTAPE 




DATA 


OUTUNIT 


Output unit 


DATA 


WORKAREA 


workarea 


DATA 


VOLSER 


volume serial 


DATA 


Dsm 


data set number 


DATA 


INQUT 


displacement 


DATA 


DSNAME 


data set name 


DATA 


EXPDATE 


expiration date 


DATA 


RECFM 


record format 


DATA 


BLKSZ 


output block size 


DATA 


OLRECL 


output record length 


DATA 


CONCODE 


condition code 



Where #OTPARMS isy^the number of parameters passed^ 

B. Parameter List Desc^ption 

The parameters are passed as described above. 

C. Return Code: 

Condition Code = 0 for normal return. 
Condition Code = 1 for abnormal return. 
D: Other Entry Points: 
CLOSTAPE 

E. OCLC Subroutine Referenced - none 

F. OCLC Procedures Referenced - none 



0 
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PROGRAM: BPT 
SUBROUTINE: CLOSTAPE 



FUNCTIONS 

The subroutine CLOSETAPE is used to verify the OS/ 360 
standard irailor label. CLOSETAPE pu*-s -^he double tape mark 
at the end oi the print tape. 



SOFTWARE INTERFACE 

A. Linkage 

The calling sequence is: 

LI,R1U i^CPARMS 

• BAL,R15 CLOSTAPE 

DATA WORKAREA workarea 

DATA ^(BLAKS no. of physical blocks 

DATA CONCODE condition code 

■ Where //CPARMS is the nuiriber of parameters passed, 

X . - - 

B. Parameter List Description 

The parameters are passed as described above. 



C. Return Codes 

Condition Code ' 0 for normal return 

= 5 for I/n error 

= 6 for EOT on 

= 7 tape not opened or invalid workarea 

' 8 trailer labels were not located 



D. Otner Entry Points - none 

E. OCLC Subroutines Referenced - none 

F. OCLC Procedures Referenced - none 



